home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / STRINGS.SWG / 0049_Replicate CHAR in STRING.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  787b  |  23 lines

  1. {*****************************************************************************
  2.  * Function ...... Replicate()
  3.  * Purpose ....... To duplicate a character a certain number of times
  4.  * Parameters .... c         Character to duplicate
  5.  *                 n         Number of times to duplicate <c>
  6.  * Returns ....... A string <n> long filled with character <c>
  7.  * Notes ......... None
  8.  * Author ........ Martin Richardson
  9.  * Date .......... October 2, 1992
  10.  *****************************************************************************}
  11. FUNCTION Replicate( c: CHAR; n: BYTE ): STRING; ASSEMBLER;
  12. ASM
  13.       XOR    CX, CX
  14.       MOV    AL, c
  15.       MOV    CL, n
  16.       LES    DI, @Result
  17.       MOV    BYTE PTR ES:[DI], CL
  18.       INC    DI
  19.       CLD
  20.       REP    STOSB
  21. END;
  22.  
  23.